home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok12 / module / twofiles.def < prev    next >
Text File  |  1993-11-04  |  2KB  |  51 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.    TwoFiles.def
  3.     :Author.     Bernd Preusing
  4.     :Address.    Gerhardstr. 16  D-2200 Elmshorn
  5.     :Phone.      04121/22486
  6.     :Shortcut.   [bep]
  7.     :Version.    1.1
  8.     :Date.       11-Nov-88
  9.     :Copyright.  PD
  10.     :Language.   Modula-II
  11.     :Translator. M2Amiga
  12.     :Imports.    InOut2 [bep]
  13.     :UpDate.     1.1: Added InMessage and OutMessage
  14.     :Contents.   Open Input and/or Output from commandline or Terminal
  15.     :Remark.
  16. ---------------------------------------------------------------------------*)
  17. DEFINITION MODULE TwoFiles;
  18.  
  19. TYPE
  20.     sFileName = ARRAY[0..79] OF CHAR;
  21.  
  22.     (* bekommt den '-'-Parameter incl. '-' *)
  23.     prOpt = PROCEDURE(VAR ARRAY OF CHAR);
  24.  
  25. VAR    (* nur zum Auslesen *)
  26.     InFileName, OutFileName: sFileName;
  27.  
  28.     (* zum Setzen der Msgs. Default: 'in>' und 'out>' *)
  29.     InMessage, OutMessage: sFileName;
  30.  
  31. (* p wird aufgerufen, falls im Verlauf (!!) der Action ein Parameter
  32.    auftaucht, der mit '-' beginnt. p darf nichts von hier aufrufen!
  33.    Falls p nicht gesetzt, werden solche Parameter wie normale
  34.    FileNamen behandelt!
  35.    p=NIL: OptProc wieder löschen *)
  36. PROCEDURE OptProcedure(p: prOpt);
  37.  
  38. (* Setze TwoFiles-Variable
  39.     Standard: TRUE
  40.   TRUE:  falls ein Output-File geöffnet werden soll und bereits existiert,
  41.      wird nachgefragt, ob es überschrieben werden soll.
  42.   FALSE: keine Nachfrage, File wird gelöscht.
  43. *)
  44. PROCEDURE SetAsk(ask: BOOLEAN);
  45.  
  46. (* OpenInput, OpenOutput oder beides
  47.    result: FALSE, wenn keine Parameter mehr oder kein Name eingegeben *)
  48. PROCEDURE OpenFiles(in, out: BOOLEAN): BOOLEAN;
  49.  
  50. END TwoFiles.def
  51.